Imports CapaDeDatos
Public Class nAfectacionUnidad
    Private TblAfectacionUnidad As CapaDeDatos.dAfectacionUnidad = New CapaDeDatos.dAfectacionUnidad
    Public Function Insertar(ByVal CodigoOrdenServicio As Long, ByVal Codigounidad As Long, ByVal AfectacionDesde As Date, ByVal AfectacionHasta As Date) As Boolean
        Return TblAfectacionUnidad.Insertar(CodigoOrdenServicio, Codigounidad, AfectacionDesde, AfectacionHasta)
    End Function
    Public Function Listar() As DataSet
        Return TblAfectacionUnidad.Listar()
    End Function
    Public Function Modificar(ByVal CodigoOrdenServicio As Long, ByVal Codigounidad As Long, ByVal AfectacionDesde As Date, ByVal AfectacionHasta As Date) As Boolean
        Return TblAfectacionUnidad.Modificar(CodigoOrdenServicio, Codigounidad, AfectacionDesde, AfectacionHasta)
    End Function
    Public Function Eliminar(ByVal CodigoOrdenServicio As Integer) As Boolean
        Return TblAfectacionUnidad.Eliminar(CodigoOrdenServicio)
    End Function
    Public Function Buscar(ByVal CodigoOrdenServicio As Long, ByVal Codigounidad As Long, ByVal AfectacionDesde As Date, ByVal AfectacionHasta As Date) As DataSet
        Return TblAfectacionUnidad.Buscar(CodigoOrdenServicio, Codigounidad, AfectacionDesde, AfectacionHasta)
    End Function
    '...nueva funcion para listar unidades afectadas
    Public Function UnidadesAfectadas(ByVal CodigoOrdenServicio As Long, ByVal Codigounidad As Long, ByVal AfectacionDesde As Date, ByVal AfectacionHasta As Date) As DataSet
        Return TblAfectacionUnidad.ListarUnidadesAfectadas(CodigoOrdenServicio, Codigounidad, AfectacionDesde, AfectacionHasta)
    End Function
    '..nueva funcion existe unidad en afectacion

    Public Function Existe(ByVal CodigoUnidad As Integer) As Boolean
        Return TblAfectacionUnidad.Existe(CodigoUnidad)
    End Function

End Class
